Const chars = "ABCDEFGHIJKLMNOPQRSTyvwxyzabcdefghijklmnopqrstyvwxyz123456789"

Private Sub Form_Load()
Dim r, i
Dim x As String

For i = 1 To 8
Randomize
r = Int((Rnd * 61) + 1)

x = x & Mid(chars, r, 1)

Next i
MsgBox x

End Sub